perm filename DLP[NEW,LCS] blob
sn#550334 filedate 1980-12-10 generic text, type T, neo UTF8
1) LOOP.FAI[NEW,LCS] and 2) UDP:LOOP.FAI[MS,LCS] 12-10-80 09:33 pages 1,1
**** File 1) LOOP.FAI[NEW,LCS]/1P/1L
1) COMMENT ā VALID 00003 PAGES
1) C REC PAGE DESCRIPTION
1) C00001 00001
1) C00002 00002 TITLE LOOP SUBROUTINE LOOP(I,J,L,M,N)
1) C00045 00003 JRST E144
1) C00050 ENDMK
1) Cā;
1) TITLE LOOP ; SUBROUTINE LOOP(I,J,L,M,N)
**** File 2) UDP:LOOP.FAI[MS,LCS]/1P/1L
2) TITLE LOOP ; SUBROUTINE LOOP(I,J,L,M,N)
***************
**** File 1) LOOP.FAI[NEW,LCS]/2P/798L
1) SETZM 14 ; FLAG FOR DD CURSOR
1) DDCHK: MOVNI 2,1
**** File 2) UDP:LOOP.FAI[MS,LCS]/1P/798L
2) DDCHK: MOVNI 2,1
***************
**** File 1) LOOP.FAI[NEW,LCS]/2P/821L
1) JSA 16,ALINE
1) JUMP X1
**** File 2) UDP:LOOP.FAI[MS,LCS]/1P/820L
2) JSA 16,ALINE
2) JUMP X1
***************
**** File 1) LOOP.FAI[NEW,LCS]/2P/832L
1) ;; [1]
1) ;; MOVEM 14,DPY+1 ;PUT BACK DPY WDCNT.
1) JRST BX7 ;JRA 16,2(16) ;MAKE AN X ON THE DATA DISC
1) ;; JRST BX4-3 ;JRA 16,2(16) ;MAKE AN X ON THE DATA DISC
1) NOTDD: JSA 16,SETCUR
**** File 2) UDP:LOOP.FAI[MS,LCS]/1P/831L
2) ;; [3]
2) ;; JSA 16,SETPOG
2) ;; [1]
2) JSA 16,DPYDO
2) [1]
2) MOVEM 14,DPY+1 ;PUT BACK DPY WDCNT.
2) JRST BX4-3 ;JRA 16,2(16) ;MAKE AN X ON THE DATA DISC
2) NOTDD: JSA 16,SETCUR
***************
1) LOOP.FAI[NEW,LCS] and 2) UDP:LOOP.FAI[MS,LCS] 12-10-80 09:33 pages 2,1
**** File 1) LOOP.FAI[NEW,LCS]/2P/840L
1) BX7: MOVE DL ;IOLD=X22 FOR TYPING "I <CR>" TO GET LAST EDIT BACK.
1) MOVEM DL+4
1) JSA 16,ACCPOG
1) [1]
1) JSA 16,DPYDO
1) [1] ;ALWAYS DO DPYOUT IF CURSOR APPEARS.
1) SKIPE 14 ;IF AC14.NE.0 THEN ST2=AC14
1) MOVEM 14,DPY+1 ;PUT BACK DPY WDCNT.
1) JRA 16,2(16) ; THE CURSOR IS IN POSITION
**** File 2) UDP:LOOP.FAI[MS,LCS]/1P/842L
2) MOVE DL ;IOLD=X22 FOR TYPING "I <CR>" TO GET LAST EDIT BACK.
2) MOVEM DL+4
2) JRA 16,2(16) ; THE CURSOR IS IN POSITION
***************
**** File 1) LOOP.FAI[NEW,LCS]/3P/100L
1) MOVEM ALZ
1) CAIN 0,1 ;DON'T CLEAR IF NOT PIECE OF GLASS #1
**** File 2) UDP:LOOP.FAI[MS,LCS]/1P/1099L
2) MOVEM 0,ALZ
2) CAIN 0,1 ;DON'T CLEAR IF NOT PIECE OF GLASS #1
***************